home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
eulisp
/
feel-075.lha
/
feel0.75
/
Src
/
diffs
< prev
next >
Wrap
Text File
|
1992-05-19
|
12KB
|
375 lines
===================================================================
RCS file: RCS/allocate.h,v
retrieving revision 1.5
diff -r1.5 allocate.h
===================================================================
RCS file: RCS/bootstrap.h,v
retrieving revision 1.2
diff -r1.2 bootstrap.h
===================================================================
RCS file: RCS/bvf.h,v
retrieving revision 1.3
diff -r1.3 bvf.h
rcsdiff error: RCS/bytec.raw.h,v: No such file or directory
===================================================================
===================================================================
RCS file: RCS/calls.h,v
retrieving revision 1.2
diff -r1.2 calls.h
===================================================================
RCS file: RCS/ccc.h,v
retrieving revision 1.2
diff -r1.2 ccc.h
===================================================================
RCS file: RCS/class.h,v
retrieving revision 1.3
diff -r1.3 class.h
===================================================================
RCS file: RCS/copy.h,v
retrieving revision 1.8
diff -r1.8 copy.h
===================================================================
RCS file: RCS/defs.h,v
retrieving revision 1.2
diff -r1.2 defs.h
===================================================================
RCS file: RCS/error.h,v
retrieving revision 1.4
diff -r1.4 error.h
===================================================================
RCS file: RCS/format.h,v
retrieving revision 1.2
diff -r1.2 format.h
===================================================================
RCS file: RCS/funcalls.h,v
retrieving revision 1.6
diff -r1.6 funcalls.h
===================================================================
RCS file: RCS/garbage.h,v
retrieving revision 1.5
diff -r1.5 garbage.h
===================================================================
RCS file: RCS/generics.h,v
retrieving revision 1.2
diff -r1.2 generics.h
===================================================================
RCS file: RCS/global.h,v
retrieving revision 1.10
diff -r1.10 global.h
rcsdiff error: RCS/interp.raw.h,v: No such file or directory
===================================================================
RCS file: RCS/interpret.h,v
retrieving revision 1.6
diff -r1.6 interpret.h
2,3c2,3
< * Defines of bytecode junk
< */
---
> * Defines of bytecode junk
> */
24,27c24,27
< BC_BUG({ %%\
< fprintf(stderr,"{Doing: [%x, %x, %d] %d}\n",pc,sp,(int) (sp-oldsp),*pc); %%\
< oldsp=sp; %%\
< }) %%\
---
> BC_BUG({ \
> fprintf(stderr,"{Doing: [%x, %x, %d] %d}\n",pc,sp,(int) (sp-oldsp),*pc); \
> oldsp=sp; \
> }) \
32c32
< vref(statics[n],m)
---
> statics[n][m]
71,77c71,77
< #define MAKE_ENV(sp,size) %%\
< { %%\
< LispObject tmp; %%\
< /**/ %%\
< tmp=allocate_vector(sp+1, size+1); %%\
< vref(tmp,0)= PEEK_VAL(sp); %%\
< SHOVE_VAL(sp,tmp); %%\
---
> #define MAKE_ENV(sp,size) \
> { \
> LispObject tmp; \
> /**/ \
> tmp=allocate_vector(sp+1, size+1); \
> vref(tmp,0)= PEEK_VAL(sp); \
> SHOVE_VAL(sp,tmp); \
88,91c88,91
< into= (int)(*(stream++)); %%\
< into=(into<<8)+((int)(*(stream++))); %%\
< into=(into<<8)+((int)(*(stream++))); %%\
< into= *(stream++) ? -into: into; %%\
---
> into= (int)(*(stream++)); \
> into=(into<<8)+((int)(*(stream++))); \
> into=(into<<8)+((int)(*(stream++))); \
> into= *(stream++) ? -into: into; \
100c100
< #define read_byte_arg(into,stream) %%\
---
> #define read_byte_arg(into,stream) \
110c110
< #define PC_VAL_WIDTH 18
---
> #define PC_VAL_WIDTH 20
117,120c117,120
< #define REIFY_PC(pc) %%\
< ((LispObject) %%\
< ((this_vector<<(PC_VAL_WIDTH+PC_FLAG_WIDTH)) %%\
< | (((pc)-bytevector_start(this_vector)) << PC_FLAG_WIDTH) %%\
---
> #define REIFY_PC(pc) \
> ((LispObject) \
> ((this_vector<<(PC_VAL_WIDTH+PC_FLAG_WIDTH)) \
> | (((pc)-bytevector_start(this_vector)) << PC_FLAG_WIDTH) \
123,126c123,126
< #define SET_PC(this_vector,reified_pc) %%\
< ((this_vector=((int)reified_pc)>>(PC_VAL_WIDTH+PC_FLAG_WIDTH)), %%\
< reified_pc=((LispObject) (((int)(reified_pc))&PC_VECT_MASK)), %%\
< bytevector_start(this_vector)+((((int)reified_pc)>>PC_FLAG_WIDTH)) %%\
---
> #define SET_PC(this_vector,reified_pc) \
> ((this_vector=((int)reified_pc)>>(PC_VAL_WIDTH+PC_FLAG_WIDTH)), \
> reified_pc=((LispObject) (((int)(reified_pc))&PC_VECT_MASK)), \
> bytevector_start(this_vector)+((((int)reified_pc)>>PC_FLAG_WIDTH)) \
130c130
< #define ADJUST_PC(pc,x) %%\
---
> #define ADJUST_PC(pc,x) \
134,135c134,135
< (this_vector=intval(bytefunction_codenum(x)), %%\
< bytevector_start(intval(bytefunction_codenum(x))) %%\
---
> (this_vector=intval(bytefunction_codenum(x)), \
> bytevector_start(intval(bytefunction_codenum(x))) \
156,168c156,168
< { %%\
< int i,j; %%\
< for (i=0, j=0; i<256; i++) %%\
< { %%\
< if (exec_counts[i]!=0) %%\
< { %%\
< fprintf(stderr,"%3d: %7d ",i,exec_counts[i]); %%\
< j++; %%\
< if ( (j%6) == 0) %%\
< fputc('\n',stderr); %%\
< } %%\
< } %%\
< if (j%6!=0) fputc('\n',stderr); %%\
---
> { \
> int i,j; \
> for (i=0, j=0; i<256; i++) \
> { \
> if (exec_counts[i]!=0) \
> { \
> fprintf(stderr,"%3d: %7d ",i,exec_counts[i]); \
> j++; \
> if ( (j%6) == 0) \
> fputc('\n',stderr); \
> } \
> } \
> if (j%6!=0) fputc('\n',stderr); \
179c179
< # define BC_CASE(name) %%\
---
> # define BC_CASE(name) \
182c182
< # define BC_CASE(name)%%\
---
> # define BC_CASE(name)\
187c187
< # define BC_CASE(name) %%\
---
> # define BC_CASE(name) \
191c191
< # define BC_CASE(name) %%\
---
> # define BC_CASE(name) \
197,201d196
< #define N_GLOBALS 10
< #define GLOBAL_REF(n) vref(global_vector,(n))
< #define Generic_Lookup_Fn 0
< #define Generic_Apply_Fn 1
<
203,209c198,200
< static LispObject boot_modules[MAX_BOOT_MODULES]; \
< static int boot_module_count=1; \
< static bytecode exit_bytes[] = { BC_EXIT }; \
< static SYSTEM_GLOBAL(int,static_count); \
< static LispObject *statics; \
< static LispObject static_vectors; \
< static LispObject global_vector;
---
> static int static_count; \
> static LispObject *statics[MAX_MODS]; \
> static LispObject static_vectors[MAX_MODS]; \
211c202
< static bytecode **bytevectors; \
---
> static bytecode *bytevectors[MAX_MODS]; \
215,220c206,211
< #define BC_INITIALISE_GLOBALS() %%\
< BCnil=nil; %%\
< BCtrue=lisptrue; %%\
< BC_BUG(oldsp=sp); %%\
< sp=stacktop-1; /* stackpointer[0]= top elt */ %%\
< pc=start_pc; %%\
---
> #define BC_INITIALISE_GLOBALS() \
> BCnil=nil; \
> BCtrue=lisptrue; \
> BC_BUG(oldsp=sp); \
> sp=stacktop-1; /* stackpointer[0]= top elt */ \
> pc=start_pc; \
223,224c214,215
< #define BC_NOINSTRUCT(pc) %%\
< default: %%\
---
> #define BC_NOINSTRUCT(pc) \
> default: \
===================================================================
RCS file: RCS/irun.h,v
retrieving revision 1.2
diff -r1.2 irun.h
===================================================================
RCS file: RCS/iset.h,v
retrieving revision 1.4
diff -r1.4 iset.h
===================================================================
RCS file: RCS/lamport.h,v
retrieving revision 1.1
diff -r1.1 lamport.h
===================================================================
RCS file: RCS/lex_global.h,v
retrieving revision 1.1
diff -r1.1 lex_global.h
===================================================================
RCS file: RCS/listops.h,v
retrieving revision 1.2
diff -r1.2 listops.h
===================================================================
RCS file: RCS/lists.h,v
retrieving revision 1.2
diff -r1.2 lists.h
===================================================================
RCS file: RCS/macros.h,v
retrieving revision 1.2
diff -r1.2 macros.h
===================================================================
RCS file: RCS/modboot.h,v
retrieving revision 1.4
diff -r1.4 modboot.h
1,2d0
< #ifndef MODBOOT_H
< #define MODBOOT_H
53d50
< #endif
===================================================================
RCS file: RCS/modops.h,v
retrieving revision 1.2
diff -r1.2 modops.h
===================================================================
RCS file: RCS/modules.h,v
retrieving revision 1.4
diff -r1.4 modules.h
===================================================================
RCS file: RCS/ngenerics.h,v
retrieving revision 1.4
diff -r1.4 ngenerics.h
===================================================================
RCS file: RCS/objects.h,v
retrieving revision 1.1
diff -r1.1 objects.h
===================================================================
RCS file: RCS/root.h,v
retrieving revision 1.2
diff -r1.2 root.h
===================================================================
RCS file: RCS/runtime.h,v
retrieving revision 1.2
diff -r1.2 runtime.h
===================================================================
RCS file: RCS/semaphores.h,v
retrieving revision 1.2
diff -r1.2 semaphores.h
===================================================================
RCS file: RCS/sio.h,v
retrieving revision 1.3
diff -r1.3 sio.h
===================================================================
RCS file: RCS/slots.h,v
retrieving revision 1.2
diff -r1.2 slots.h
===================================================================
RCS file: RCS/sockets.h,v
retrieving revision 1.2
diff -r1.2 sockets.h
===================================================================
RCS file: RCS/specials.h,v
retrieving revision 1.3
diff -r1.3 specials.h
===================================================================
RCS file: RCS/state.h,v
retrieving revision 1.3
diff -r1.3 state.h
===================================================================
RCS file: RCS/structs.h,v
retrieving revision 1.11
diff -r1.11 structs.h
379d378
< int local_count; /* Number of local slots */
390a390
> int local_count; /* Number of local slots */
===================================================================
RCS file: RCS/symboot.h,v
retrieving revision 1.2
diff -r1.2 symboot.h
===================================================================
RCS file: RCS/syssockets.h,v
retrieving revision 1.2
diff -r1.2 syssockets.h
===================================================================
RCS file: RCS/system_p.h,v
retrieving revision 1.3
diff -r1.3 system_p.h
===================================================================
RCS file: RCS/system_t.h,v
retrieving revision 1.3
diff -r1.3 system_t.h
===================================================================
RCS file: RCS/table.h,v
retrieving revision 1.3
diff -r1.3 table.h
===================================================================
RCS file: RCS/threads.h,v
retrieving revision 1.4
diff -r1.4 threads.h
===================================================================
RCS file: RCS/toplevel.h,v
retrieving revision 1.2
diff -r1.2 toplevel.h
===================================================================
RCS file: RCS/vectors.h,v
retrieving revision 1.2
diff -r1.2 vectors.h
===================================================================
RCS file: RCS/version.h,v
retrieving revision 1.5
diff -r1.5 version.h
2c2
< * $Id: version.h,v 1.5 1992/05/02 12:38:18 pab Exp $
---
> * $Id: version.h,v 1.4 1992/03/14 14:36:26 pab Exp $
5,7d4
< * Revision 1.5 1992/05/02 12:38:18 pab
< * More changes
< *
===================================================================
RCS file: RCS/y.tab.h,v
retrieving revision 1.1
diff -r1.1 y.tab.h